home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ IE Clear Cache.xpl < prev    next >
Text File  |  2001-02-20  |  3KB  |  107 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Internet Explorer\Clear"
  5. "NAME"="Clear Cache"
  6. "VERSION"="1.04"
  7. "WARNING"="1"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Clear IE Cache"
  10. "TEXT 2"="Clear IE Cache (total erase!)"
  11. "DESCRIPTION 1"="This plug-in will totally erase the entire contents of the IE Cache."
  12. "DESCRIPTION 2"="If you select to open the second option, every file found (except INDEX.DAT) will be filled with garbage before deleting so even an undelete does not show what was inside the files."
  13. "DESCRIPTION 3"="IMPORTANT! Close Internet Explorer before using any of these functions!"
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to CptSiskoX for the help."
  19.  
  20. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache"
  21.  
  22.  
  23. Sub Plugin_Initialize 
  24. End Sub
  25.  
  26. Sub Plugin_CheckData(ElementIndex)
  27. End Sub
  28.  
  29. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  30.  if ElementIndex=1 then 
  31.     Call DoWork(false)  
  32.  else
  33.     Call DoWork(true)
  34.  end if
  35.  
  36.  
  37.  
  38.  
  39. End Sub
  40.  
  41. Sub DoWork(EraseTotally)
  42.     s=RegReadValue(sP)
  43.     
  44.     if folderexists(s) then
  45.        i=FolderEnum(s)
  46.        if i>0 then
  47.           sBasePath=FolderEnumElement(1)
  48.           iCount=FolderEnum(sBasePath)
  49.  
  50.           for i=1 to iCount
  51.               Call KillDir(FolderEnumElement(i),EraseTotally,true)
  52.           next
  53.                    
  54.           'okay, now look for any remaing files...
  55.           Call KillDir(sBasePath,EraseTotally,false)
  56.  
  57.           'done!
  58.           msginformation "IE Cache cleared!"
  59.        end if
  60.     else
  61.        msgerror "Unable to locate IE Cache - nothing done!"
  62.     end if
  63. end Sub
  64.  
  65.  
  66. Sub KillDir(DirName,EraseTotally,KillDirAlso)
  67.  iC=FileEnum(DirName & "*.*")
  68.  
  69.  for i=1 to iC 
  70.      sFile=FileEnumElement(i)
  71.      'index.dat can not be earased, always locked for writing... grr..
  72.      if lcase(right(sFile,9))<>"index.dat" then
  73.    
  74.         if EraseTotally then
  75.            lC=TxtOpen(sFile)
  76.  
  77.            'replace contents of file    
  78.            for l=1 to lC 
  79.                Call TxtSetLine(l,"-")
  80.            next
  81.          
  82.            'desktop.ini is special case..
  83.            if right(sFile,11)="desktop.ini" then
  84.               Call FileSetAttribute(sFile,"R-")
  85.               Call FileSetAttribute(sFile,"H-")
  86.               Call FileSetAttribute(sFile,"S-")
  87.            end if
  88.  
  89.           Call TxtSave()
  90.         end if
  91.  
  92.         'now kill the file
  93.         FileDelete(sFile)
  94.      end if               
  95.  
  96.  next 
  97.  
  98.  if KillDirAlso=true then
  99.     FolderDelete(DirName)
  100.  end if
  101. End Sub
  102.  
  103.  
  104. Sub Plugin_Terminate 
  105. End Sub
  106.  
  107.